home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-06_1987_Verlag_Heinz_Weise_de.d64 / einer gegen 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  43 lines
  1. 1000 rem erster bekannte code
  2. 1010 data 438, 94, 67,199, 75, 72, 84, 76, 82, 35,197, 82, 69, 76, 32
  3. 1020 data  86, 81, 79, 77, 39, 78, 76, 69, 75, 85, 39, 90, 88, 34, 72
  4. 1030 data  79, 91, 83, 70, 74, 79, 86, 76, 83, 86, 71, 79, 79, 39, 83
  5. 1040 data  69, 73, 78,156,443
  6. 1060 rem zweiter bekannte code
  7. 1070 data 426, 27, 87,200, 76, 70, 92, 73, 82, 36,198, 80, 77, 73, 32
  8. 1080 data  87, 82, 77, 85, 36, 78, 77, 70, 73, 93, 36, 90, 89, 35, 70
  9. 1090 data  87, 88, 83, 71, 75, 77, 94, 73, 83, 87, 72, 77, 87, 36, 83
  10. 1100 data  69, 73, 78,120,431
  11. 1120 rem erster unbekannte code
  12. 1130 data 256, 62,262,203, 70, 80, 38, 80, 65, 68, 72, 40, 92, 81, 69
  13. 1140 data  78, 79, 77, 79, 75, 72, 86, 35, 77, 79, 86, 32,196, 88, 75
  14. 1150 data  78, 40, 71, 71, 90, 87, 84, 86, 69, 80, 36, 56,143, 57,261
  15. 1160 data 159,211, 34,115,268
  16. 1180 rem zweiter unbekannte code
  17. 1190 data 283,236, 58,201, 70, 79, 38, 80, 65, 66, 72, 39, 92, 81, 69
  18. 1200 data  76, 79, 76, 79, 75, 72, 84, 35, 76, 79, 86, 32,194, 88, 74
  19. 1210 data  78, 40, 71, 69, 90, 86, 84, 86, 69, 78, 36,187,214,193,156
  20. 1220 data 173, 37,120, 27,295
  21. 1240 rem bekannter text
  22. 1250 data "[196]ieser [195]ode soll nicht zu entschluesseln sein"
  23. 1490 :
  24. 1500 rem startprogramm
  25. 1510 gosub 2010 :rem code einlesen
  26. 1520 :
  27. 1530 rem ab hier auswertungsprogramm
  28. 1540 :
  29. 1550 :
  30. 1560 :
  31. 1900 end
  32. 1910 :
  33. 2000 rem code einlesen
  34. 2010 dim c%(3,49)          :rem feld fuer alle code
  35. 2020 an=49                 :rem code-anzahl je codefolge
  36. 2030 for i=0 to 3          :rem codefolgen
  37. 2040 : for j=0 to an       :rem code-folge
  38. 2050 :   read c%(i,j)      :rem code je funkspruch
  39. 2060 : next j
  40. 2070 next i
  41. 2080 read t$               :rem bekannte codefolge
  42. 2090 return
  43.